home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 60
/
060.d81
/
puzzle boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
961b
|
29 lines
5 poke53281,.:poke53280,12:printchr$(147)chr$(14)chr$(8)
10 gosub61000
100 poke214,13:print:print"[150] [204]oading [208]rogram..."
105 goto60000
110 :
10000 open15,8,15,"s0:puzzle boot":close15:save"0:puzzle boot",8:end
10010 :
60000 open15,8,15,"r0:puzzle page 60=puzzle page 60":input#15,er:close15
60020 print"[144]load"chr$(34)"puzzle page 60"chr$(34)",8"
60025 print"run"
60030 poke43,1:poke44,64:poke16384,0
60035 poke631,13:poke632,13:poke633,13:poke198,3
60040 new
60999 :
61000 poke214,15:print
61110 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
61120 print" [152] "
61130 print" "
61140 print" "
61150 print" [208]ublished on [204][207][193][196][211][212][193][210] #60 "
61160 print" [211]ubscriptions 1-800-831-2694 "
61170 print" [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204] "
61180 print" "
61190 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
61200 au$="[212]he [208]uzzle [208]age":poke214,17:print
61205 printspc(20-len(au$)/2)"[152]"au$
61210 au$="[194]y [194]arbara [200]. [211]chulak ([195]) 1989":poke214,18:print
61220 printspc(20-len(au$)/2)"[152]"au$"":return